home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / debugfunctions.avm < prev    next >
Text File  |  1994-06-24  |  757b  |  38 lines
  1. showDebugger: procedure
  2.     if arg() ~= 1 then do
  3.         say "showDebugger: ERROR"
  4.         exit 20
  5.     end
  6.  
  7.     parse arg debuggerInfo
  8.     
  9.     firstLine = sourceline(1)
  10.     parse var firstLine '/*' 'TITLE:' title '*/'
  11.     if showlist('p', 'AVMLOGGER') then
  12.         address 'AVMLOGGER' 'add' title ':' debuggerInfo
  13.     else
  14.         say title ':' debuggerInfo
  15.  
  16.     return 
  17.  
  18. /*-----------------------------------------------------------------------*/
  19. /*                         signal processing                             */
  20.  
  21. arexxerror:
  22. error:
  23.     call showDebugger("Error" rc "at line" sigl)
  24.     exit 20
  25.  
  26. break_c:
  27. halt:
  28.     call showDebugger("Halt/Break_C at line" sigl)
  29.     exit 20
  30.  
  31. novalue:
  32.     call showDebugger("No value at line" sigl)
  33.     exit 20
  34.  
  35. syntax:
  36.     call showDebugger("Syntax error" rc "at line" sigl)
  37.     exit 20
  38.